home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 June / 64er_Magazin_91-06_1991_Markt__Technik_de.d64 / listing 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  491b  |  19 lines
  1. 100 rem *****************************
  2. 110 rem punkt setzen uebergabe in x/y
  3. 120 rem *****************************
  4. 130 bm=320*int(y/8)+(yand7)+(xand248)
  5. 140 ma=2^(7-(xand7))
  6. 150 pokebm+8192,peek(bm+8192)orma
  7. 160 return
  8. 200 rem *******************************
  9. 210 rem punkt loeschen uebergabe in x/y
  10. 220 rem *******************************
  11. 230 bm=320*int(y/8)+(yand7)+(xand248)
  12. 240 ma=255-2^(7-(xand7))
  13. 250 pokebm+8192,peek(bm+8192)andma
  14. 260 return
  15. 300 rem ***************
  16. 310 rem bitmap loeschen
  17. 320 rem ***************
  18. 330 forz=8192to16191:pokez,0:next:return
  19.